home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / domacnost a kancelar / scribus / scribus-1.3.3.7-win32-install.exe / tcl / tix8.1 / StdShell.tcl < prev    next >
Text File  |  2001-11-03  |  1KB  |  50 lines
  1. # -*- mode: TCL; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: StdShell.tcl,v 1.1.1.1.2.1 2001/11/03 07:23:17 idiscovery Exp $
  4. #
  5. # StdShell.tcl --
  6. #
  7. #    Standard Dialog Shell.
  8. #
  9. # Copyright (c) 1993-1999 Ioi Kim Lam.
  10. # Copyright (c) 2000-2001 Tix Project Group.
  11. #
  12. # See the file "license.terms" for information on usage and redistribution
  13. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  14. #
  15.  
  16. tixWidgetClass tixStdDialogShell {
  17.     -classname TixStdDialogShell
  18.     -superclass tixDialogShell
  19.     -method {}
  20.     -flag   {
  21.     -cached
  22.     }
  23.     -configspec {
  24.     {-cached cached Cached ""}
  25.     }
  26. }
  27.  
  28. proc tixStdDialogShell:ConstructWidget {w} {
  29.     upvar #0 $w data
  30.  
  31.     tixChainMethod $w ConstructWidget
  32.     set data(w:btns)   [tixStdButtonBox $w.btns]
  33.     set data(w_tframe) [frame $w.tframe]
  34.  
  35.     pack $data(w_tframe) -side top -expand yes -fill both
  36.     pack $data(w:btns) -side bottom -fill both
  37.  
  38.     tixCallMethod $w ConstructTopFrame $data(w_tframe)
  39. }
  40.  
  41.  
  42. # Subclasses of StdDialogShell should override this method instead of
  43. # ConstructWidget.
  44. #
  45. # Override : always
  46. # chain    : before
  47. proc tixStdDialogShell:ConstructTopFrame {w frame} {
  48.     # Do nothing
  49. }
  50.